home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / os2 / kzr0597.zip / PI.CMD < prev    next >
OS/2 REXX Batch file  |  1997-03-09  |  773b  |  31 lines
  1. /* REXX-Programm pi.cmd */
  2.  
  3.    Call RxFuncAdd 'SysLoadFuncs', RexxUtil, 'SysLoadFuncs'
  4.    Call SysLoadFuncs
  5.  
  6. /* Diese Variablen müssen für jede Prozedur definiert werden, damit die  */
  7. /* Prozedur die Variable bufND kennt und die Variable ND übernehmen kann.*/
  8.    Pfd=SysSearchPath("PATH", "kzr.cmd")
  9.    lp=LastPos("\", Pfd)
  10.    Pfd=DelStr(Pfd, 1+lp)
  11.    NDApi  =Pfd||"NDApi.DAT"
  12.    bufND  =Pfd||"NDZahl.DAT"
  13.    bufMsg =Pfd||"Meldung.DAT"
  14.    ND = LineIn(bufND, 1)
  15.    Numeric Digits ND+4
  16.  
  17.    /* Berechnet  π  mit Hilfe von  arcsin(1/2) = π/6 */
  18.    g=1; t=0.25; m=2; v=1
  19.    do forever
  20.      g=g*t*(m-1)*(m-1)/(m*(m+1))
  21.      if g/v < 10**(-ND-20) then leave
  22.      v=v+g
  23.      m=m+2
  24.    end
  25.    y=3*v
  26.  
  27. W: numeric digits ND
  28.    return(Format(y))
  29.  
  30.    EXIT
  31.